5 GOSUB60000:REM TABELLEN DEFFINIEREN
10 INPUT"WAS NUN ";BE$:REM BEFEHL
20 GOSUB51000         :REM ZERLEGUNG
30 PRINT:PRINT"BE$=";CHR$(34);BE$;CHR$(34):PRINT
40 FORI=1TO10
50 :PRINT"BE$(";RIGHT$(STR$(I),LEN(STR$(I))-1);")=";CHR$(34);BE$(I);CHR$(34)
60 NEXT:PRINT"ANZAHL DER WOERTER (WZ) :";WZ:PRINT
70 GOTO10
51000 REMBE$ IN BE$(1)-BE$(10) ZERLEGEN
51010 FORI=1TO10:BE$(I)="":NEXT
51020 WZ=1
51030 FORI=1TOLEN(BE$)
51040 :IFMID$(BE$,I,1)=" "THENGOSUB51100:GOTO51060
51045 :IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO51060
51050 :BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
51060 NEXTI
51070 RETURN
51100 REM AU$ WOERTER AUSSORTIEREN
51110 IC=0:FORI1=1TOAZ
51120 :IFBE$(WZ)=AU$(I1)THENIC=1
51130 NEXTI1
51140 IFIC=0THENWZ=WZ+1:RETURN
51150 BE$(WZ)="":RETURN
60000 REM *** TABELLEN-DEFFINIEREN ***
60005 DATA DER,DIE,DAS,DEN, ,UEBER,UNTER,AUF,IN
60010 AZ=9:FORI=1TOAZ:READAU$(I):NEXT
60015 RETURN